www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Model\ComponentLabels\内容专题复选框控件\do_add_mode_label.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:asp_label$end_newDsoft_label_type$ '$newDsoft_label_name$:$doaddmode$-ComponentLabel-$$end_newDsoft_label_name$ '$newDsoft_label_sql$: $end_newDsoft_label_sql$ '$newDsoft_label_params$:flbiao,复选框项配置表表名$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:在添加页的处理页里的标签$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$:htmledxa:|htmledxb:$end_newDsoft_other_params$ '$end_ext_newDsoft%><% set rsfffx=server.CreateObject("adodb.recordset") rsfffx.open "select * from $model$biaoqz$$xxvar$flbiao order by id asc",newdsoft_conn_obj,1,1 rstlstr="" do while not rsfffx.eof if request("$post$myname$_"&cstr(rsfffx("id")))="1" then rstlstr=rstlstr&cstr(rsfffx("id"))&","&"1"&"|" else rstlstr=rstlstr&cstr(rsfffx("id"))&","&"0"&"|" end if rsfffx.movenext loop if rstlstr<>"" then rstlstr=left(rstlstr,len(rstlstr)-1) end if $mysave$value$=rstlstr rsfffx.close set rsfffx=nothing %>